home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib01.dsk / GR PRINT.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  62 lines
  1. 0  POKE 74,72: POKE 75,113: REM  SET LOMEM:29000
  2. 1  REM  *************************
  3. 2  REM  ** APPLE/IDS GR PRINT  **
  4. 3  REM  ** COPYRIGHT (C) 1980  **
  5. 4  REM  ** MICRO-SPARC, INC.   **
  6. 5  REM  ** P.O. BOX 325        **
  7. 6  REM  ** LINCOLN, MA 01773   **
  8. 7  REM  *************************
  9. 8 D$ =  CHR$(4)
  10. 9  PRINT D$;"BLOAD GR MACH LANG"
  11. 10  DIM H(200),L(200)
  12. 11  CALL  -936: PRINT "APPLE II/IDS 440 HIRES SCREEN DUMP": PRINT : PRINT "BE SURE YOU HAVE A GRAPHICS PICTURE IN": PRINT "PAGE 1 OF THE HIRES AREA (8192-16384)
  13. 12  PRINT "IF NOT, START OVER AND PUT ONE THERE.": PRINT : PRINT "THEN RUN 'GR PRINT' AGAIN."
  14. 13  PRINT : INVERSE : INPUT "INVERT BLACK/WHITE IMAGE? Y OR N";A$
  15. 14  IF A$ = "Y"  THEN  FLASH : PRINT "INVERTING": NORMAL : CALL 28116
  16. 15  CALL  -936: PRINT "SETTING UP TO PRINT":
  17. 16  GOTO 100
  18. 50  FOR R = 1 TO 8
  19. 52  IF FL = 0  THEN FL = 1:X = A: GOTO 56
  20. 54  IF FL = 1  THEN FL = 0:X = B
  21. 56  FOR S = 1 TO 8
  22. 58 N = N +1:L(N) = X
  23. 60  NEXT S: NEXT R: RETURN 
  24. 75  FOR R = 1 TO 2
  25. 77  FOR X = Y TO Z  STEP 4
  26. 79 N = N +1:H(N) = X
  27. 81  NEXT X: NEXT R: RETURN 
  28. 100 N = 0: FOR M = 1 TO 3
  29. 105  FOR Y = 32 TO 35
  30. 110 Z = Y +28: GOSUB 75
  31. 115  NEXT Y
  32. 120  NEXT M
  33. 150 N = 0:A = 0:B = 128: GOSUB 50
  34. 155 A = 40:B = 168: GOSUB 50
  35. 160 A = 80:B = 208: GOSUB 50
  36. 180 C$ =  CHR$(3):K$ =  CHR$(11):B$ =  CHR$(2):PR$ =  CHR$(30)
  37. 181 K$ =  CHR$(14)
  38. 190  POKE 250,104: POKE 251,66
  39. 200  FOR X = 1 TO 192  STEP 6
  40. 205  POKE 6,L(X): POKE 7,H(X)
  41. 210  POKE 8,L(X +1): POKE 9,H(X +1)
  42. 215  POKE 23,L(X +2): POKE 24,H(X +2)
  43. 220  POKE 25,L(X +3): POKE 26,H(X +3)
  44. 230  POKE 27,L(X +4): POKE 28,H(X +4)
  45. 235  POKE 29,L(X +5): POKE 30,H(X +5)
  46. 240  CALL 28000
  47. 245  NEXT X
  48. 400  POKE 54,0: POKE 55,193
  49. 1007  PRINT "<CTRL-I>120N": REM  CTLI 120N
  50. 1008  PRINT B$; CHR$(30): PRINT C$; CHR$(30);C$;K$
  51. 1010  FOR N = 17000 TO 25920  STEP 280
  52. 1012  PRINT C$;K$;
  53. 1015  FOR I = 0 TO 279
  54. 1020 X =  PEEK(N +I)
  55. 1021  IF X < >3  AND X < >9  THEN  PRINT  CHR$(X);: GOTO 1025
  56. 1022  PRINT  CHR$(3); CHR$(3);
  57. 1025  NEXT I
  58. 1030  NEXT N
  59. 1035  PRINT C$;B$
  60. 1037  PRINT "<CTRL-I>40N": REM  CTLI 40N
  61. 1040  POKE 54,240: POKE 55,253
  62. 1050  PRINT "END": END